
<!--#include virtual="/Librerias/mssql-ds.dll" -->
<!--#include virtual="/Librerias/security-ds.dll" -->
<!--#include virtual="/Funciones/FuncionesGenerales.asp" -->

<!--#include file="fpdf.asp"-->
<%

%>


<%

'response.write("hhh")
				'response.end


'------------------CABECERA-----------------------
Sub Cabecera


	pdf.SetFont "Arial","B",5
	pdf.SetXY 5, 5
	pdf.MultiCell 285,3,"FORMULARIO REG-POA-06",0,"C",0
	pdf.SetTextColor 0,0,0	

	pdf.SetFont "Arial","B",5
	pdf.SetXY 5, 8
	pdf.MultiCell 285,3,"PROGRAMACION OPERATIVA ANUAL SECTORIAL Y PRESUPUESTO " & Gestion(),0,"C",0
	pdf.SetTextColor 0,0,0


	pdf.SetFont "Arial","B",5
	pdf.SetXY 5, 10
	pdf.MultiCell 40,3,"SECTOR Y SUS ENTIDADES",1,"L",0
	pdf.SetTextColor 0,0,0	
	
	pdf.SetXY 45, 10
	pdf.MultiCell 50,3,"TRANSPORTE/VIASBOLIVIA",1,"C",0
	pdf.SetTextColor 0,0,0

	
	pdf.SetXY 5, 13
	pdf.MultiCell 40,3,"CODIGO SECTOR Y ENTIDADES",1,"L",0
	pdf.SetTextColor 0,0,0
	
	pdf.SetXY 45, 13
	pdf.MultiCell 50,3,"292",1,"C",0
	pdf.SetTextColor 0,0,0
	
	pdf.SetXY 5, 16
	pdf.MultiCell 40,3,"GESTION",1,"L",0
	pdf.SetTextColor 0,0,0
	
	pdf.SetXY 45, 16
	pdf.MultiCell 50,3, Gestion(),1,"C",0
	pdf.SetTextColor 0,0,0

		
	pdf.SetXY 5, 19
	pdf.MultiCell 40,3,"DIRECCION / OFICINA REGIONAL ",1,"L",0
	pdf.SetTextColor 0,0,0
	
	pdf.SetXY 45, 19
	pdf.MultiCell 50,3,"OFICINA REGIONAL COCHABAMBA ",1,"C",0
	pdf.SetTextColor 0,0,0
	
	
	''---------------CODIGO-1------------------------'
	pdf.SetFont "Arial","B",3
	pdf.SetXY 5, 25
	pdf.MultiCell 5,2,"COD. EJE. GES.",1,"C",0
	pdf.SetTextColor 0,0,0
	'---------Objetivo de Gestion-------------------'
	pdf.SetFont "Arial","B",5
	pdf.SetXY 10, 25
	pdf.MultiCell 15,3,"Objetivo de Gestion(2)",1,"C",0
	pdf.SetTextColor 0,0,0
	
	''---------------CODIGO-2------------------------'
	pdf.SetFont "Arial","B",3
	pdf.SetXY 25, 25
	pdf.MultiCell 5,2,"COD. PRO. INT.",1,"C",0
	pdf.SetTextColor 0,0,0
	
	'---------Objetivo de Gestion-------------------'
	pdf.SetFont "Arial","B",5
	pdf.SetXY 30, 25
	pdf.MultiCell 20,3,"Producto Institucional",1,"C",0
	pdf.SetTextColor 0,0,0

	''---------------CODIGO-2------------------------'
	pdf.SetFont "Arial","B",3
	pdf.SetXY 50, 25
	pdf.MultiCell 10,2,"COD. PRODUCTO AREA/UNIDAD.",1,"C",0
	pdf.SetTextColor 0,0,0
	
	'---------Objetivo de Gestion-------------------'
	pdf.SetFont "Arial","B",5
	pdf.SetXY 60, 25
	pdf.MultiCell 20,2,"Producto de Area/Unidad Organizacional",1,"C",0
	pdf.SetTextColor 0,0,0
	
		'---------Objetivo de Gestion-------------------'
	pdf.SetFont "Arial","B",5
	pdf.SetXY 80, 25
	pdf.MultiCell 10,3,"Codigo  Actividad",1,"C",0
	pdf.SetTextColor 0,0,0
	
	'---------Objetivo de Gestion-------------------'	
	pdf.SetFont "Arial","B",5
	pdf.Rect 90 , 25 , 25 , 6 , "D"
	pdf.SetXY 90, 25
	
	'pdf.MultiCell 30,2,"Actividad",0,"C",0
	pdf.SetTextColor 0,0,0
	
		'---------Cronograma-------------------'
	pdf.SetFont "Arial","B",3.5
	pdf.SetXY 115, 25
	pdf.MultiCell 12,3,"CRONOGRAMA",1,"C",0
	pdf.SetTextColor 0,0,0
	
	pdf.SetFont "Arial","B",4
	pdf.SetXY 115, 28
	pdf.MultiCell 6,3,"Inicio",1,"C",0
	pdf.SetTextColor 0,0,0
	
		
	pdf.SetFont "Arial","B",4
	pdf.SetXY 121, 28
	pdf.MultiCell 6,3,"Fin",1,"C",0
	pdf.SetTextColor 0,0,0

'---------Objetivo de Gestion-------------------'
	pdf.SetFont "Arial","B",5
	pdf.Rect 127 , 25 , 8 , 6 , "D"
	pdf.SetXY 127, 25	
	pdf.MultiCell 8,2,"Partida",0,"C",0
	pdf.SetTextColor 0,0,0
	
	'---------PRESUPUESTO-------------------'
	pdf.SetFont "Arial","B",5
	pdf.SetXY 135, 25

	pdf.MultiCell 156,2,"PRESUPUESTO",1,"C",0
	pdf.SetTextColor 0,0,0
	
	'---------INSUMOS-------------------'
	pdf.SetFont "Arial","B",5
	pdf.SetXY 135, 27
	pdf.MultiCell 38,2,"INSUMOS",1,"C",0
	pdf.SetTextColor 0,0,0
	
	'---------PROGRAMACION-------------------'
	pdf.SetFont "Arial","B",5
	pdf.SetXY 173, 27
	pdf.MultiCell 118,2,"PROGRAMACION",1,"C",0
	pdf.SetTextColor 0,0,0
	
	
'---------Objetivo de Gestion-------------------'
	pdf.SetFont "Arial","B",5
	pdf.SetXY 135, 29

	pdf.MultiCell 19,2,"Detalle",1,"C",0
	pdf.SetTextColor 0,0,0

	
	'---------Objetivo de uni-------------------'
	pdf.SetFont "Arial","B",5
	pdf.SetXY 154, 29
	pdf.MultiCell 6,2,"Uni",1,"C",0
	pdf.SetTextColor 0,0,0
	
	'---------CANTIDAD-------------------'
	pdf.SetFont "Arial","B",5
	pdf.SetXY 160, 29
	pdf.MultiCell 6,2,"Cant",1,"C",0
	pdf.SetTextColor 0,0,0
	
	'---------Objetivo de Gestion-------------------'
	pdf.SetFont "Arial","B",5
	pdf.SetXY 165, 29
	pdf.MultiCell 8,2,"P/U Bs",1,"C",0
	pdf.SetTextColor 0,0,0
	
		'---------Objetivo de Gestion-------------------'
	pdf.SetFont "Arial","B",5
	pdf.SetXY 173, 29
	pdf.MultiCell 10,2,"Total Bs",1,"C",0
	pdf.SetTextColor 0,0,0
	
		'---------Objetivo de Gestion-------------------'
	pdf.SetFont "Arial","B",5
	pdf.SetXY 183, 29
	pdf.MultiCell 9,2,"ENE.",1,"C",0
	pdf.SetTextColor 0,0,0

	pdf.SetFont "Arial","B",5
	pdf.SetXY 192, 29
	pdf.MultiCell 9,2,"FEB.",1,"C",0
	pdf.SetTextColor 0,0,0

	pdf.SetFont "Arial","B",5
	pdf.SetXY 201, 29
	pdf.MultiCell 9,2,"MAR.",1,"C",0
	pdf.SetTextColor 0,0,0

	pdf.SetFont "Arial","B",5
	pdf.SetXY 210, 29
	pdf.MultiCell 9,2,"ABR.",1,"C",0
	pdf.SetTextColor 0,0,0

	pdf.SetFont "Arial","B",5
	pdf.SetXY 219, 29
	pdf.MultiCell 9,2,"MAY.",1,"C",0
	pdf.SetTextColor 0,0,0

	pdf.SetFont "Arial","B",5
	pdf.SetXY 228, 29
	pdf.MultiCell 9,2,"JUN.",1,"C",0
	pdf.SetTextColor 0,0,0

	pdf.SetFont "Arial","B",5
	pdf.SetXY 237, 29
	pdf.MultiCell 9,2,"JUL.",1,"C",0
	pdf.SetTextColor 0,0,0

	pdf.SetFont "Arial","B",5
	pdf.SetXY 246, 29
	pdf.MultiCell 9,2,"AGO.",1,"C",0
	pdf.SetTextColor 0,0,0

	pdf.SetFont "Arial","B",5
	pdf.SetXY 255, 29
	pdf.MultiCell 9,2,"SEP.",1,"C",0
	pdf.SetTextColor 0,0,0

	pdf.SetFont "Arial","B",5
	pdf.SetXY 264, 29
	pdf.MultiCell 9,2,"OCT.",1,"C",0
	pdf.SetTextColor 0,0,0

	pdf.SetFont "Arial","B",5
	pdf.SetXY 273, 29
	pdf.MultiCell 9,2,"NOV.",1,"C",0
	pdf.SetTextColor 0,0,0

	pdf.SetFont "Arial","B",5
	pdf.SetXY 282, 29
	pdf.MultiCell 9,2,"DIC.",1,"C",0
	pdf.SetTextColor 0,0,0
	
end sub				

'---------------------------LINEAS----------------------------------
Sub Lineas
									
	'-------PROCEDIMIENTO DINAMICO ----------------------------------------------------------------------------------
	pdf.AddPage()
	
	COORDX1=80
    COORDY1=31
        
    COORDXd1=90
    COORDYd1=31
		
		
	COORDX=80
	COORDY=31
        
	COORDXd=90
	COORDYd=31
										
	'---Tercera Consulta-------------------------------
	COORDXP=50
	COORDYP=31

	COORDXPd=60
	COORDYPd=31

	'---Segunda Consulta-------------------------------
	COORDXPp=25
	COORDYPp=31

	COORDXPpd=30
	COORDYPpd=31
	
	
									
	'----Primera Consulta---------------------------------------------------------------------------------------------
	COORDXPpp=5
	COORDYPpp=31		
	COORDXPppd=10
	COORDYPppd=31
	'------------------------
	ESPACIO=2
	ESPACIOTOTAL1=0
	ESPACIOTOTAL2=0
	ESPACIOTOTAL3=0				
									
end sub

'-------------------------------------------------------------------
				
				
Set pdf=CreateJsObject("FPDF")
    pdf.CreatePDF("L")
    pdf.SetPath("fpdf/")
    pdf.Open()
    pdf.AddPage()
	Cabecera
   
    '-------PROCEDIMIENTO DINAMICO ----------------------------------------------------------------------------------

	    COORDX1=80
        COORDY1=31
        
        COORDXd1=90
        COORDYd1=31
		
        COORDX=80
        COORDY=31
        
        COORDXd=90
        COORDYd=31
        
		'---Tercera Consulta-------------------------------
		COORDXP=50
        COORDYP=31

        COORDXPd=60
        COORDYPd=31

		'---Segunda Consulta-------------------------------
		COORDXPp=25
        COORDYPp=31

        COORDXPpd=30
        COORDYPpd=31
		
		'----Primera Consulta---------------------------------------------------------------------------------------------
		COORDXPpp=5
        COORDYPpp=31		
		COORDXPppd=10
        COORDYPppd=31
		'------------------------
        ESPACIO=2
        ESPACIOTOTAL1=0
        ESPACIOTOTAL2=0
		ESPACIOTOTAL3=0				
	'-----------INICIO-PRIMERA-CONSULTA----------------------------------------------------------------------------------
	sSQL = ""
	sSQL = sSQL & " select * from ObjetivosGestion" & qGestion & " where obje_id=36 and o" & qGestion & "_id=8"
	Pdetalle = MatrixBD(sSQL, 1)

	If VarType(Pdetalle) = 8  then
		qDetalle = -1
	Else
		qDetalle = UBound(Pdetalle,2)	
	End If	
	'--------------------------------------------------------------------------------------------------------------------
		
		FOR c=0 to qDetalle
		
			CodObj=Pdetalle(2,c)
			ObjGes=Pdetalle(3,c)
			Pbusqueda=Pdetalle(0,c)
				'-----Segunda Consulta-----------------------------------------------------------------------------------
				sSQL = ""
				sSQL = sSQL & " select pope.pope" & qGestion & "_id, p.p" & qGestion & "_id,p.p" & qGestion & "_codigo, p.p" & qGestion & "_producto, p.o" & qGestion & "_id"
				sSQL = sSQL & " from POperacion" & qGestion & " pope inner join Productos" & qGestion & " p on p.p" & qGestion & "_id=pope.p" & qGestion & "_id "
				sSQL = sSQL & " WHERE pope.aper_id=1396 and p.o" & qGestion & "_id='"& Pbusqueda &"' order by p.p" & qGestion & "_id"
				response.write(sSQL)

				response.end

				Sdetalle = MatrixBD(sSQL, 1)
				
				If VarType(Sdetalle) = 8  then
					qsDetalle = -1
				Else
					qsDetalle = UBound(Sdetalle,2)	
				End If
				'--------------------------------------------------------------------------------------------------------
					FOR K=0 TO qsDetalle
						CodPro=Sdetalle(1,K)
						CodProd=Sdetalle(2,K)
						ProInst=Sdetalle(3,K)
						pope=Sdetalle(0,K)
						
						'-----Tercera Consulta-----------------------------------------------------------------------------------
						sSQL = "select * from POperacion" & qGestion & " where p" & qGestion & "_id='"& CodPro &"' and aper_id=1396 order by p" & qGestion & "_id "
						tdetalle = MatrixBD(sSQL, 1)
					
						If VarType(tdetalle) = 8  then
							qtDetalle = -1
						Else
							qtDetalle = UBound(tdetalle,2)	
						End If
						'--------------------------------------------------------------------------------------------------------
							FOR j=0 to qtDetalle
							
								CodArea=tdetalle(2,j)
								CodDetArea=tdetalle(5,j)
								'-----Cuarta Consulta-----------------------------------------------------------------------------------
								sSQL1 = "select * from Procesos" & qGestion & " WHERE p" & qGestion & "_id='"& pope &"'"
								cdetalle = MatrixBD(sSQL1, 1)
								If VarType(cdetalle) = 8  then
									qcDetalle = -1
								Else
									qcDetalle = UBound(cdetalle,2)	
								End If
								'--------------------------------------------------------------------------------------------------------
							
									FOR i=0 to qcDetalle
										
										cod=cdetalle(2,i)										
										Cadena=cdetalle(4,i)										
										'----QUINTA CONSULTA----------------------------------------------------------------------------------
										sSQL = ""
										sSQL = sSQL & "SELECT og.o" & qGestion & "_codigo, og.o" & qGestion & "_objetivo,prod.p" & qGestion & "_codigo, prod.p" & qGestion & "_producto,pop.pope" & qGestion & "_codigo, pop.pope" & qGestion & "_producto, "
										sSQL = sSQL & "p.pro" & qGestion & "_codigo, p.pro" & qGestion & "_proceso,i.par_id Partida, i.ins_caracteristicas Detalle, i.ins_unidad_medida UnidadMedida, "
										sSQL = sSQL & "i.ins_cant_requerida Cantidad, i.ins_costo_unitario, i.ins_costo_total,i.ins_enero, i.ins_febrero, i.ins_marzo, i.ins_abril, "
										sSQL = sSQL & "i.ins_mayo, i.ins_junio, i.ins_julio, i.ins_agosto, i.ins_septiembre, i.ins_octubre, i.ins_noviembre, i.ins_diciembre"
										sSQL = sSQL & " FROM Insumos i "
										sSQL = sSQL & " INNER JOIN InsumoProceso" & qGestion & " ip ON ip.ins_id = i.ins_id"
										sSQL = sSQL & " INNER JOIN Procesos" & qGestion & " p ON p.pro" & qGestion & "_id = ip.pro" & qGestion & "_id AND p.aper_id =1396"
										sSQL = sSQL & " INNER JOIN POperacion" & qGestion & " pop ON pop.pope" & qGestion & "_id = p.p" & qGestion & "_id"
										sSQL = sSQL & " INNER JOIN Productos" & qGestion & " prod ON prod.p" & qGestion & "_id = pop.p" & qGestion & "_id"
										sSQL = sSQL & " INNER JOIN ObjetivosGestion" & qGestion & " og ON og.o" & qGestion & "_id = prod.o" & qGestion & "_id"
										sSQL = sSQL & " INNER JOIN Partidas pa ON pa.par_id = i.par_id "
										sSQL = sSQL & "where og.o" & qGestion & "_id='"& Pbusqueda &"' AND p.pro" & qGestion & "_codigo='"& cod &"' ORDER BY og.o" & qGestion & "_codigo"
										
										response.write(sSQL)
										response.end


										udetalle = MatrixBD(sSQL, 1)
										If VarType(udetalle) = 8  then
											quDetalle = -1
										Else
											quDetalle = UBound(udetalle,2)	
										End If

										
																			
										
										if quDetalle>=0 then
										' con insumos
										'-----------------------------------------------------------------------------------------------------		
											
											FOR g=0 to quDetalle
											
											resultotal=0
											puntero=0
											
											ultimoPartida=udetalle(8,g)
											ultimoDetalle=udetalle(9,g)
											ultimoUmedida=left(udetalle(10,g),3)
											ultimoCantidad=udetalle(11,g)
											ultimocUnitario=udetalle(12,g)
											ultimoTotal=udetalle(13,g)
											ultimoEne=udetalle(14,g)
											ultimoFeb=udetalle(15,g)
											ultimoMar=udetalle(16,g)
											ultimoAbr=udetalle(17,g)
											ultimoMay=udetalle(18,g)
											ultimoJun=udetalle(19,g)
											ultimoJul=udetalle(20,g)
											ultimoAgo=udetalle(21,g)
											ultimoSep=udetalle(22,g)
											ultimoOct=udetalle(23,g)
											ultimoNov=udetalle(22,g)
											ultimoDic=udetalle(23,g)										
											
															if COORDYd>=180 then
															
															'COORDY=0
															
															'pdf.Rect COORDX , COORDY , 15 , resultado , "D"
															'pdf.SetXY COORDX, COORDY
															'pdf.MultiCell COORDX,resultado,cod,0,"J",0
															
															
															pdf.Rect COORDXd1 , COORDYd1 , 25 , ESPACIOTOTAL1 , "D"
															pdf.SetXY COORDXd1, COORDY
																											
															pdf.SetFont "Arial","B",3.5
															pdf.SetXY COORDXP, COORDYP
															pdf.SetDrawColor 100,100,100
															pdf.Cell 10,ESPACIOTOTAL1,CodArea,1
															COORDYP=COORDYP+ESPACIOTOTAL1
															
															pdf.SetXY COORDXPd, COORDYPd
															pdf.SetDrawColor 100,100,100
															pdf.Rect COORDXPd , COORDYPd , 20 , ESPACIOTOTAL1 , "D"
															pdf.MultiCell 20,1.5,CodDetArea  ,0,"C",0

															COORDYPd=COORDYPd+ESPACIOTOTAL1
															ESPACIOTOTAL2=ESPACIOTOTAL2+ESPACIOTOTAL1
															 
															 'Codigo Producto Insitucional
															pdf.SetXY COORDXPp, COORDYPp
															pdf.SetDrawColor 100,100,100
															pdf.Cell 5,ESPACIOTOTAL2,CodProd,1
															COORDYPp=COORDYPp+ESPACIOTOTAL2
													
															'Producto Institucional						
															pdf.SetXY COORDXPpd, COORDYPpd
															pdf.SetDrawColor 100,100,100
															pdf.Rect COORDXPpd , COORDYPpd , 20 , ESPACIOTOTAL2 , "D"
															pdf.MultiCell 20,1.5,ProInst  ,0,"C",0
															COORDYPpd=COORDYPpd+ESPACIOTOTAL2
															ESPACIOTOTAL3=ESPACIOTOTAL3+ESPACIOTOTAL2
															
															'Codigo Objetivo Gestion
															pdf.SetXY COORDXPpp, COORDYPpp
															pdf.SetDrawColor 100,100,100
															'pdf.SetFont "Arial","B",4
															pdf.Cell 5,ESPACIOTOTAL3,CodObj,1
															COORDYPpp=COORDYPpp+ESPACIOTOTAL3
											
															'Objetivo de Gestion
															pdf.SetXY COORDXPppd, COORDYPppd
															pdf.SetDrawColor 100,100,100
															'pdf.SetFont "Arial","B",4
															'pdf.Cell 20,ESPACIOTOTAL3,"",1
															pdf.Rect COORDXPppd , COORDYPppd , 15 , ESPACIOTOTAL3 , "D"
															pdf.MultiCell 15,3,ObjGes  ,0,"C",0
															COORDYPppd=COORDYPppd+ESPACIOTOTAL3								

															ESPACIOTOTAL3=0
															ESPACIOTOTAL2=0
															ESPACIOTOTAL1=0
															Lineas

															Cabecera			  
															  
															ELSE
																
																
																ultimoresultado=0
																ulnro=0
															
																pdf.SetXY COORDXd, COORDYd
																pdf.SetDrawColor 100,100,100
																pdf.SetFont "Arial","B",4
																NRO=pdf.GetStringWidth(Cadena)
																NRO2=len(Cadena)
																uni=round(NRO,2)															
																		
																resultado=uni/20
																auxiliar=resultado
																fraccion=","
																Posicion= Instr(resultado,fraccion)																														
																																		
																''-----------------nueva consulta--------------------''
																				
																ULTIMONRO=pdf.GetStringWidth(ultimoDetalle)
																ultimouni=round(NRO,2)															
																ultimoresultado=ultimouni/18
																ultimoauxiliar=ultimoresultado
																fraccion=","
																ultimaPosicion= Instr(ultimoresultado,fraccion)																	
																	if ultimaPosicion<>0 then																								
																		ultimoresultado=fix(ultimoresultado)+1																																				
																	end if
																
																			if posicion<>0 then																								
																				resultado=fix(resultado)+1
																				
																				ULTIMONRO=pdf.GetStringWidth(ultimoDetalle)
																				ultimouni=round(NRO,2)															
																				ultimoresultado=ultimouni/18
																				ultimoauxiliar=ultimoresultado
																				fraccion=","
																				ultimaPosicion= Instr(ultimoresultado,fraccion)														
																				
																					if ultimaPosicion<>0 then																								
																						ultimoresultado=fix(ultimoresultado)+1																																				
																					end if
																					
																					
																					if resultado>ultimoresultado then
																						resultado=resultado
																					else
																						resultado=resultado+2
																					end if
																				
																				resultado=resultado*ESPACIO	
																			
																																									
																				'nuevoresultado=auxiliar-resultado
																				'pdf.MultiCell 25,ESPACIO,Cadena,0,"J",0
																				'pdf.Rect COORDXd , COORDYd , 25 , resultado*ESPACIO , "D"	
																				
																																					
																				pdf.SetFont "Arial","B",3.5																			
																				'---Mes de Inicio
																				pdf.Rect COORDX+35 , COORDY , 6 , resultado , "D"
																				pdf.SetXY COORDX+35, COORDY
																				pdf.MultiCell COORDX,resultado,"ENE",0,"J",0
																		
																				'--Mes Final
																				pdf.Rect COORDX+41 , COORDY , 6 , resultado , "D"
																				pdf.SetXY COORDX+41, COORDY
																				pdf.MultiCell COORDX,resultado,"DIC",0,"J",0
																				
																				'--Partida
																				pdf.Rect COORDX+47 , COORDY , 8 , resultado , "D"
																				pdf.SetXY COORDX+47, COORDY
																				pdf.MultiCell 8,resultado,ultimoPartida,0,"C",0											
																				'--Detalle
																				pdf.Rect COORDX+55 , COORDY , 19 , resultado , "D"
																				pdf.SetXY COORDX+55, COORDY
																				pdf.MultiCell 19,2,ultimoDetalle,0,"J",0
																				
																				if puntero=0 then
																					COORDYPadre=COORDY
																				end if
																				
																				'--Unidad
																				pdf.Rect COORDX+74 , COORDY , 6 , resultado , "D"
																				pdf.SetXY COORDX+74, COORDY
																				pdf.MultiCell 6,resultado,ultimoUmedida,0,"C",0
																				
																				'--Cantidad
																				pdf.Rect COORDX+80 , COORDY , 6 , resultado , "D"
																				pdf.SetXY COORDX+80, COORDY
																				pdf.MultiCell 6,resultado,ultimoCantidad,0,"C",0																	
																			
																				'--Precio Unitario
																				pdf.Rect COORDX+86 , COORDY , 7 , resultado , "D"
																				pdf.SetXY COORDX+86, COORDY
																				pdf.MultiCell 7,resultado,FormatNumber(ultimocUnitario,0),0,"R",0
															
																				'--Precio Total
																				pdf.Rect COORDX+93 , COORDY , 10 , resultado , "D"
																				pdf.SetXY COORDX+93, COORDY
																				pdf.MultiCell 10,resultado,FormatNumber(ultimoTotal,2),0,"R",0
																				
																				''ENERO--
																				pdf.SetFont "Arial","B",3.5
																				pdf.Rect COORDX+103 , COORDY , 9 , resultado , "D"
																				pdf.SetXY COORDX+103, COORDY
																				pdf.MultiCell 9,resultado,FormatNumber(ultimoEne,2),0,"J",0
																				''FEBRERO--
																				pdf.Rect COORDX+112 , COORDY , 9 , resultado , "D"
																				pdf.SetXY COORDX+112, COORDY
																				pdf.MultiCell 9,resultado,FormatNumber(ultimoFeb,2),0,"J",0
																				''MARZO--
																				pdf.Rect COORDX+121 , COORDY , 9 , resultado , "D"
																				pdf.SetXY COORDX+121, COORDY
																				pdf.MultiCell 9,resultado,FormatNumber(ultimoMar,2),0,"J",0

																				''ABRIL--
																				pdf.Rect COORDX+130 , COORDY , 9 , resultado , "D"
																				pdf.SetXY COORDX+130, COORDY
																				pdf.MultiCell 9,resultado,FormatNumber(ultimoAbr,2),0,"J",0

																				''MAYO--
																				pdf.Rect COORDX+139 , COORDY , 9 , resultado , "D"
																				pdf.SetXY COORDX+139, COORDY
																				pdf.MultiCell 9,resultado,FormatNumber(ultimoMay,2),0,"J",0

																				''JUNIO--
																				pdf.Rect COORDX+148 , COORDY , 9 , resultado , "D"
																				pdf.SetXY COORDX+148, COORDY
																				pdf.MultiCell 9,resultado,FormatNumber(ultimoJun,2),0,"J",0

																				''JULIO--
																				pdf.Rect COORDX+157 , COORDY , 9 , resultado , "D"
																				pdf.SetXY COORDX+157, COORDY
																				pdf.MultiCell 9,resultado,FormatNumber(ultimoJul,2),0,"J",0
																				
																				
																				''AGOSTO--
																				pdf.Rect COORDX+166 , COORDY , 9 , resultado , "D"
																				pdf.SetXY COORDX+166, COORDY
																				pdf.MultiCell 9,resultado,FormatNumber(ultimoAgo,2),0,"J",0

																				''SEPTIEMBRE--
																				pdf.Rect COORDX+175 , COORDY , 9 , resultado , "D"
																				pdf.SetXY COORDX+175, COORDY
																				pdf.MultiCell 9,resultado,FormatNumber(ultimoSep,2),0,"J",0

																				''OCTUBRE--
																				pdf.Rect COORDX+184 , COORDY , 9 , resultado , "D"
																				pdf.SetXY COORDX+184, COORDY
																				pdf.MultiCell 9,resultado,FormatNumber(ultimoOct,2),0,"J",0

																				''NOVIEMBRE--
																				pdf.Rect COORDX+193 , COORDY , 9 , resultado , "D"
																				pdf.SetXY COORDX+193, COORDY
																				pdf.MultiCell 9,resultado,FormatNumber(ultimoNov,2),0,"R",0

																				''DICIEMBRE--
																				pdf.Rect COORDX+202 , COORDY , 9 , resultado , "D"
																				pdf.SetXY COORDX+202, COORDY
																				pdf.MultiCell 9,resultado,FormatNumber(ultimoDic,2),0,"R",0
																			
																					
																		else
																				resultado=resultado
																		end if
																COORDYd=COORDYd+resultado											
																ESPACIOTOTAL1=ESPACIOTOTAL1+RESULTADO
																COORDY=COORDYd	
																resultotal=	resultotal*resultado
																
																if COORDYd>=180 then
																	nuevo=pdf.GetY()
																end if
																																										
															end if
															puntero=puntero+1
															
															
											next
											'pdf.SetXY COORDXd1, COORDYPadre
											'pdf.MultiCell 25,2,Cadena  ,0,"C",0
											
											if COORDYd=180 then
											pdf.Rect COORDXd1 , COORDYd , 25 , nuevo , "D"
											pdf.SetXY COORDXd1, COORDYPadre
											pdf.MultiCell 25,2,Cadena  ,0,"C",0
											else
											pdf.Rect COORDXd1 , COORDYd , 25 , resultotal , "D"
											pdf.SetXY COORDXd1, COORDYPadre
											pdf.MultiCell 25,2,Cadena  ,0,"C",0
											end if

											
										else
										''---- sin insumos
												
												if COORDYd>=180 then
												
												'COORDY=0												
												'pdf.Rect COORDX , COORDY , 15 , resultado , "D"
												'pdf.SetXY COORDX, COORDY
												'pdf.MultiCell COORDX,resultado,cod,0,"J",0
												
															
															'pdf.Rect COORDXd1 , COORDYd1 , 25 , ESPACIOTOTAL1 , "D"
															'pdf.SetXY COORDXd1, COORDY
															
																											
															pdf.SetFont "Arial","B",3.5
															pdf.SetXY COORDXP, COORDYP
															pdf.SetDrawColor 100,100,100
															pdf.Cell 10,ESPACIOTOTAL1,CodArea,1
															COORDYP=COORDYP+ESPACIOTOTAL1
															
															pdf.SetXY COORDXPd, COORDYPd
															pdf.SetDrawColor 100,100,100
															pdf.Rect COORDXPd , COORDYPd , 20 , ESPACIOTOTAL1 , "D"
															pdf.MultiCell 20,1.5,CodDetArea  ,0,"C",0

															COORDYPd=COORDYPd+ESPACIOTOTAL1
															ESPACIOTOTAL2=ESPACIOTOTAL2+ESPACIOTOTAL1

															 
															 'Codigo Producto Insitucional
															pdf.SetXY COORDXPp, COORDYPp
															pdf.SetDrawColor 100,100,100
															pdf.Cell 5,ESPACIOTOTAL2,CodProd,1
															COORDYPp=COORDYPp+ESPACIOTOTAL2
													
															'Producto Institucional						
															pdf.SetXY COORDXPpd, COORDYPpd
															pdf.SetDrawColor 100,100,100
															pdf.Rect COORDXPpd , COORDYPpd , 20 , ESPACIOTOTAL2 , "D"
															pdf.MultiCell 20,1.5,ProInst  ,0,"C",0
															COORDYPpd=COORDYPpd+ESPACIOTOTAL2
															ESPACIOTOTAL3=ESPACIOTOTAL3+ESPACIOTOTAL2
															
															'Codigo Objetivo Gestion
															pdf.SetXY COORDXPpp, COORDYPpp
															pdf.SetDrawColor 100,100,100
															pdf.SetFont "Arial","B",4
															pdf.Cell 5,ESPACIOTOTAL3,CodObj,1
															COORDYPpp=COORDYPpp+ESPACIOTOTAL3
											
															'Objetivo de Gestion
															pdf.SetXY COORDXPppd, COORDYPppd
															pdf.SetDrawColor 100,100,100
															pdf.SetFont "Arial","B",4
															'pdf.Cell 20,ESPACIOTOTAL3,"",1
															pdf.Rect COORDXPppd , COORDYPppd , 15 , ESPACIOTOTAL3 , "D"
															pdf.MultiCell 15,3,ObjGes  ,0,"C",0
															COORDYPppd=COORDYPppd+ESPACIOTOTAL3								

															ESPACIOTOTAL3=0
															ESPACIOTOTAL2=0
															ESPACIOTOTAL1=0
															Lineas
															Cabecera			  

												  												  
												ELSE  
												'no insumos
												
													pdf.SetXY COORDXd, COORDYd
													pdf.SetDrawColor 100,100,100
													pdf.SetFont "Arial","B",4
													NRO=pdf.GetStringWidth(Cadena)
													NRO2=len(Cadena)
													uni=round(NRO,2)
													
															resultado=uni/20
															auxiliar=resultado
															fraccion=","
															Posicion= Instr(resultado,fraccion)
																												
																if posicion<>0 then																								
																	resultado=fix(resultado)
																	nuevoresultado=auxiliar-resultado																															
																																			
																	'---------------------------------INSTRUCIONES---------------
																	if nuevoresultado>=0.45 then
																		resultado=resultado+1

																		'codigo1-------------------------------------------------
																		pdf.MultiCell 25,ESPACIO,Cadena,0,"J",0
																		pdf.Rect COORDXd , COORDYd , 25 , resultado*ESPACIO , "D"
																		'--------------------------------------------------------				
																		
																	else
																		resultado=resultado+1
																		pdf.Rect COORDXd , COORDYd , 25 , resultado*ESPACIO , "D"
																		pdf.MultiCell 25,ESPACIO,Cadena,0,"J",0
																		'pdf.Rect COORDXd , COORDYd , 15 , resultado*ESPACIO , "D"
																												
																	end if
																	'---------------------------------------------------------------
																	resultado=resultado*ESPACIO
																	
																	pdf.SetFont "Arial","B",3.5
																	pdf.Rect COORDX , COORDY , 10 , resultado , "D"
																	pdf.SetXY COORDX, COORDY
																	pdf.MultiCell COORDX,resultado,cod,0,"J",0
																	pdf.SetFont "Arial","B",3.5															
																	
																	'---Mes de Inicio
																	pdf.Rect COORDX+35 , COORDY , 6 , resultado , "D"
																	pdf.SetXY COORDX+35, COORDY
																	pdf.MultiCell COORDX,resultado,"ENE",0,"J",0
																	
																	'--Mes Final
																	pdf.Rect COORDX+41 , COORDY , 6 , resultado , "D"
																	pdf.SetXY COORDX+41, COORDY
																	pdf.MultiCell COORDX,resultado,"DIC",0,"J",0
																	
																	'--Partida
																	pdf.Rect COORDX+47 , COORDY , 8 , resultado , "D"
																	pdf.SetXY COORDX+47, COORDY
																	pdf.MultiCell 8,resultado,"",0,"C",0
																	
																	'--Detalle
																	pdf.Rect COORDX+55 , COORDY , 19 , resultado , "D"
																	pdf.SetXY COORDX+55, COORDY
																	pdf.MultiCell 20,resultado,"",0,"J",0
																	
																	'--Unidad
																	pdf.Rect COORDX+74 , COORDY , 6 , resultado , "D"
																	pdf.SetXY COORDX+74, COORDY
																	pdf.MultiCell 6,resultado,"",0,"C",0
																	
																	'--Cantidad
																	pdf.Rect COORDX+80 , COORDY , 6 , resultado , "D"
																	pdf.SetXY COORDX+80, COORDY
																	pdf.MultiCell 6,resultado,"",0,"C",0
																	
																
																	'--Precio Unitario
																	pdf.Rect COORDX+86 , COORDY , 7 , resultado , "D"
																	pdf.SetXY COORDX+86, COORDY
																	pdf.MultiCell 7,resultado,"",0,"C",0
												
																	'--Precio Total
																	pdf.Rect COORDX+93 , COORDY , 10 , resultado , "D"
																	pdf.SetXY COORDX+93, COORDY
																	pdf.MultiCell 10,resultado,"",0,"J",0
																	
																	'--ENERO
																	pdf.SetFont "Arial","B",3.5
																	pdf.Rect COORDX+103 , COORDY , 9 , resultado , "D"
																	pdf.SetXY COORDX+103, COORDY
																	pdf.MultiCell 9,resultado,"",0,"J",0
																	''FEBRERO
																	pdf.Rect COORDX+112 , COORDY , 9 , resultado , "D"
																	pdf.SetXY COORDX+112, COORDY
																	pdf.MultiCell 9,resultado,"",0,"J",0
																	''MARZO
																	pdf.Rect COORDX+121 , COORDY , 9 , resultado , "D"
																	pdf.SetXY COORDX+121, COORDY
																	pdf.MultiCell 9,resultado,"",0,"J",0

																	''ABRIL
																	pdf.Rect COORDX+130 , COORDY , 9 , resultado , "D"
																	pdf.SetXY COORDX+130, COORDY
																	pdf.MultiCell 9,resultado,"",0,"J",0

																	''MAYO
																	pdf.Rect COORDX+139 , COORDY , 9 , resultado , "D"
																	pdf.SetXY COORDX+139, COORDY
																	pdf.MultiCell 9,resultado,"",0,"J",0

																	''JUNIO
																	pdf.Rect COORDX+148 , COORDY , 9 , resultado , "D"
																	pdf.SetXY COORDX+148, COORDY
																	pdf.MultiCell 9,resultado,"",0,"J",0

																	''JULIO
																	pdf.Rect COORDX+157 , COORDY , 9 , resultado , "D"
																	pdf.SetXY COORDX+157, COORDY
																	pdf.MultiCell 9,resultado,"",0,"J",0
																	
																	
																	''AGOSTO
																	pdf.Rect COORDX+166 , COORDY , 9 , resultado , "D"
																	pdf.SetXY COORDX+166, COORDY
																	pdf.MultiCell 9,resultado,"",0,"J",0

																	''SEPTIEMBRE
																	pdf.Rect COORDX+175 , COORDY , 9 , resultado , "D"
																	pdf.SetXY COORDX+175, COORDY
																	pdf.MultiCell 9,resultado,"",0,"J",0

																	''OCTUBRE
																	pdf.Rect COORDX+184 , COORDY , 9 , resultado , "D"
																	pdf.SetXY COORDX+184, COORDY
																	pdf.MultiCell 9,resultado,"",0,"J",0

																	''NOVIEMBRE
																	pdf.Rect COORDX+193 , COORDY , 9 , resultado , "D"
																	pdf.SetXY COORDX+193, COORDY
																	pdf.MultiCell 9,resultado,"",0,"R",0

																	''DICIEMBRE
																	pdf.Rect COORDX+202 , COORDY , 9 , resultado , "D"
																	pdf.SetXY COORDX+202, COORDY
																	pdf.MultiCell 9,resultado,"",0,"R",0
																	
																else
																	resultado=resultado
																end if
																
													COORDYd=COORDYd+resultado
													ESPACIOTOTAL1=ESPACIOTOTAL1+RESULTADO
													COORDY=COORDYd
												
												end if										

											end if
									next									
							
							'Codigo Produc--------------------------------	
							pdf.SetFont "Arial","B",3.5							
							pdf.SetXY COORDXP, COORDYP
						    pdf.SetDrawColor 100,100,100
							pdf.Cell 10,ESPACIOTOTAL1,CodArea,1
							COORDYP=COORDYP+ESPACIOTOTAL1
							pdf.SetFont "Arial","B",4
							pdf.SetXY COORDXPd, COORDYPd
							pdf.SetDrawColor 100,100,100
							'pdf.Cell 40,ESPACIOTOTAL1,CodArea,1
							
							pdf.Rect COORDXPd , COORDYPd , 20 , ESPACIOTOTAL1 , "D"
						    pdf.MultiCell 20,1.5,CodDetArea  ,0,"C",0

							COORDYPd=COORDYPd+ESPACIOTOTAL1
							ESPACIOTOTAL2=ESPACIOTOTAL2+ESPACIOTOTAL1
							ESPACIOTOTAL1=0
							'----------------------------------------------
							next
				
						'Codigo Producto Insitucional
						pdf.SetFont "Arial","B",3.5
						pdf.SetXY COORDXPp, COORDYPp
						pdf.SetDrawColor 100,100,100
						pdf.Cell 5,ESPACIOTOTAL2,CodProd,1
						COORDYPp=COORDYPp+ESPACIOTOTAL2
						'Producto Institucional						
						pdf.SetXY COORDXPpd, COORDYPpd
						pdf.SetDrawColor 100,100,100
						'pdf.Cell 20,ESPACIOTOTAL2,ProInst,1
						pdf.SetFont "Arial","B",4
						pdf.Rect COORDXPpd , COORDYPpd , 20 , ESPACIOTOTAL2 , "D"
						pdf.MultiCell 20,1.5,ProInst  ,0,"C",0
						COORDYPpd=COORDYPpd+ESPACIOTOTAL2
						ESPACIOTOTAL3=ESPACIOTOTAL3+ESPACIOTOTAL2
						ESPACIOTOTAL2=0
						
					next
			'Codigo Objetivo Gestion
			pdf.SetFont "Arial","B",4
			pdf.SetXY COORDXPpp, COORDYPpp
			pdf.SetDrawColor 100,100,100			
			pdf.Cell 5,ESPACIOTOTAL3,CodObj,1
			COORDYPpp=COORDYPpp+ESPACIOTOTAL3
						
			'Objetivo de Gestion
			pdf.SetXY COORDXPppd, COORDYPppd
			pdf.SetDrawColor 100,100,100
			'pdf.Cell 20,ESPACIOTOTAL3,CodObj,1
			pdf.Rect COORDXPppd , COORDYPppd , 15 , ESPACIOTOTAL3 , "D"
			pdf.MultiCell 15,2,ObjGes  ,0,"C",0
			COORDYPppd=COORDYPppd+ESPACIOTOTAL3
			ESPACIOTOTAL3=0   		
		next
		
        pdf.Close()
        pdf.Output
%>